home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / alph100p.zip / TEMPLATE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-11-01  |  826 b   |  37 lines
  1. {$A+,B-,D-,E-,F-,G-,I+,L+,N-,O-,R+,S+,V+,X-}
  2. program template;
  3.  
  4. uses
  5.   wow,
  6.   ALPHA;
  7.  
  8.  
  9. procedure PrimaryFileExit; Far;
  10. begin
  11. {-vvvv PUT YOUR VERY LAST SCREEN DISPLAY & CODE HERE vvvvvvv-}
  12.  
  13.  
  14. {-^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^-}
  15. end;
  16.  
  17. procedure StartUp;
  18. begin
  19.   LastProc:=@PrimaryFileExit;    { if you want ALPHA to Add a Main Exit Procedure }
  20.   MakeAlphaChoice(Cga16_Mode);   { Informs ALPHA of what Program Mode you want }
  21. {----------------------------------------------------}
  22.   TextMode(CO80);                { If you want to select a specific Text Mode then do it first}
  23.  
  24.  
  25. {----------------------------------------------------}
  26. end;
  27.  
  28. procedure Run;  { What you normally would put between you Main begin..End. routine}
  29. begin
  30.  
  31. end;
  32.  
  33. begin
  34.   StartUp;
  35.   Run;
  36. end.
  37.